home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / aeclipd.arc / AECLIPD.PRG next >
Text File  |  1989-10-14  |  1KB  |  60 lines
  1. ***
  2. *** AECLIPD : format file
  3. *** Generated October 12, 1989
  4. ***
  5. set scoreboard off
  6. set status off
  7. SET COLOR TO +W/B
  8. CLEAR
  9. dialnum=space(14)
  10. comport=0
  11.  
  12. @ 06,03 SAY "Enter Comm Port Modem is Hooked Up To:" get comport picture "9"
  13. @ 07,03 say "Comm 1=0, Comm 2=1"
  14. @ 09,03 SAY "Enter the Number To Dial:" get dialnum picture "@!"
  15. @ 11,03 SAY "STATUS:"
  16.  
  17. SET COLOR TO +W/G
  18. @ 00,00,04,27 BOX "┌─┐│┘─└│ "
  19. @ 01,05 SAY "PcBoard V14.1/E3"
  20. @ 02,03 SAY "300-38400 Baud, 8-N-1"
  21. @ 03,03 SAY "Large Clipper/dB3 Dir"
  22. SET COLOR TO +W/R
  23. @ 00,28,04,49 BOX "┌─┐│┘─└│ "
  24. @ 01,30 SAY "Auto Exec Inc. BBS"
  25. @ 02,33 SAY "1 GIGABYTE"
  26. @ 03,30 Say "Free Registration"
  27. SET COLOR TO +W/G
  28. @ 00,50,04,79 BOX "┌─┐│┘─└│ "
  29. @ 01,52 SAY "(508) 833-0508/ HST -19.2K"
  30. @ 02,52 SAY "(508) 833-0510/ V.32-38.4K"
  31. @ 03,52 say "Games, 'C', Pascal & Adult"
  32. SET COLOR TO +W/R
  33. @ 22,00,24,79 BOX "╔═╗║╝═╚║ "
  34. @ 23,02 SAY "Home of AECLIP Software - AECLIPT (GRAPHIC LIB), AECLIPM (MATH LIB) & more"
  35. read
  36. retkey=lastkey()
  37. if retkey<>27 .and. len(trim(dialnum))>0
  38. ModemNum(comport)
  39. ModemInit(300)
  40. inkey(3)                    && short pause
  41. ModemStr("V0 X7 E1 F1 Q0 &W")
  42. inkey(3)                    && short pause
  43. ModemDial(dialnum)
  44. inkey(5)                    && short pause
  45. xx="NO STATUS"
  46. do while "NO STAT" $ xx
  47.    xx=ModemStat()
  48.    if .not. "NO STAT" $ xx
  49.     @11,12 say xx
  50.    endif
  51.    whatkey=nextkey()
  52.    if whatkey=27
  53.      exit
  54.    endif
  55. enddo
  56. ModemStr("H0")
  57. endif
  58.  
  59.  
  60.